home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / ghostbbs.zip / ERR.PAS < prev    next >
Pascal/Delphi Source File  |  1988-10-03  |  649b  |  31 lines
  1. program errutil;
  2. var
  3.   ScreenBase         : integer;
  4.   outfile            : file;
  5.   screenarray        : array [1..1920] of byte;
  6.   i,offset            : integer;
  7.  
  8. Procedure DetermineDisplay;
  9. Var
  10.     T: Byte;
  11. Begin
  12.     t := (mem[0000:$0410] and $0030);
  13.     if (t=$0030) then ScreenBase := $B000
  14.                  else ScreenBase := $B800
  15. End;
  16.  
  17. begin
  18.   offset := 0;
  19.   determinedisplay;
  20.   assign(outfile,'ERRFILE.TXT');
  21.   rewrite(outfile);
  22.   for i := 1 to 1920 do
  23.     begin
  24.       screenarray[i] := mem[screenbase:offset];
  25.       offset := offset + 2;
  26.     end;
  27.   blockwrite(outfile,screenarray,15);
  28.   close(outfile);
  29. end.
  30.  
  31.